home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 10 / Grapevine 10 (Disk 2 of 3).adf / sources / GVT_BSTR.s next >
Text File  |  1990-09-13  |  573b  |  41 lines
  1.     ; GVT_BSTR.s by Shagratt of LSD
  2.  
  3.     ; this is distributable ONLY with GRAPEVINE ISSUE 10.
  4.     
  5.     
  6.     section    ddp,code
  7.  
  8.     incdir    "dh0:includes/"
  9.     include    "libraries/gvt.i"
  10.  
  11.     ; gvt call corrupts a1,a2,a3,a4,a5,a6,d0,d1
  12.     ; dont push onto stack or it guru's (!!!)
  13.  
  14.     gvtcall    $110    ; send linefeed to COS
  15.  
  16.     move.l    #bstr1,d1
  17.     lsr.l    #2,d1
  18.     gvtcall    $124    ; send BSTR to COS
  19.  
  20.     move.l    #12345,d1
  21.     gvtcall    $118    ; output decimal value to COS
  22.     gvtcall    $110    ; send linefeed to COS
  23.  
  24.  
  25.  
  26. wait:    btst    #6,$bfe001
  27.     bne    wait
  28.  
  29.  
  30.  
  31.     clr.l    d0
  32.     rts
  33.  
  34.     cnop    0,4    ; long align
  35. bstr1:    dc.b    9,"Value is "
  36.     nop
  37.     
  38.     
  39.     END
  40.  
  41.